home *** CD-ROM | disk | FTP | other *** search
/ CD Games Collection / cd GAMES collection.iso / 0037 / moonshot.sxt < prev    next >
Encoding:
Text File  |  1998-07-04  |  17.4 KB  |  710 lines

  1.  
  2.  
  3. go:  
  4.   if visible "help window" == TRUE
  5.    undisplay element "help window"
  6.   if visible "status" == TRUE
  7.    textbox "status" = "             "
  8.    undisplay element "status"
  9.   if visible "scoreback" == TRUE
  10.    undisplay element "scoreback"
  11.   if visible "scorebox" == TRUE
  12.    undisplay element "scorebox"
  13.   if visible "rating" == TRUE
  14.    undisplay element "rating"
  15.   if visible "landing" == TRUE
  16.    undisplay element "landing"
  17.   if visible "fuelbonus" == TRUE
  18.    undisplay element "fuelbonus"
  19.   if visible "subtotal" == TRUE
  20.    undisplay element "subtotal"
  21.   if visible "landingsite" == TRUE
  22.    undisplay element "landingsite"
  23.   if visible "totalscore" == TRUE
  24.    undisplay element "totalscore"
  25.   ships_ = ships_ - 1
  26.   if ships_ < 0 
  27.    display element "moonscap"
  28.    call new_game
  29.    ships_ = ships_ - 1
  30.    editbox "score" = score_
  31.   break mode 0
  32.   mouse position 320,240
  33.   mouse mode OFF
  34.   editbox "ships" = ships_
  35.   editbox "fuel" = "100"
  36.   editbox "fps" = "0"
  37.   landing_site = 0
  38.   fuel_bonus = 0
  39.   fuel_percent = 100
  40.   crash = FALSE
  41.   landing = FALSE
  42.   stat_switch = 0
  43.   play_problem = 0
  44.   flame = 0
  45.   yaw = 1
  46.   gravity = 2
  47.   thrust = 1
  48.   left = 1
  49.   right = 2
  50.   fuel = 225
  51.   fps_time = TIMER
  52.   fps_switch = 0
  53.   gg = 2
  54.   en = 0
  55.   yy = 40
  56.   yyy = 40
  57.   xx = 1 
  58.   loop_= 1
  59.   while loop_ == 1
  60.    update_sprite_time = TIMER
  61.    gravity = gravity * 1.013 - thrust + 1
  62.    if fuel_percent < 20
  63.     if fuel > 1
  64.       if visible "status" == FALSE 
  65.        display element "status"
  66.        textbox "status" = "WARNING:  LOW FUEL"
  67.     if playing "moonmus.wav" == TRUE 
  68.      stop element "moonmus.wav"
  69.     if flame == 0
  70.      if playing "alarm.wav" == FALSE
  71.       if playing "problem.wav" == FALSE
  72.        display element "alarm.wav"
  73.    if fuel < 1
  74.     flame = 0
  75.     if stat_switch == 0
  76.      if visible "status" == FALSE 
  77.       display element "status"
  78.      textbox "status" = "YOU ARE OUT OF FUEL."
  79.      stat_switch = 1
  80.     if play_problem == 0
  81.      if fps_ > 1.5
  82.       if playing "thrust.wav" == TRUE
  83.        stop element "thrust.wav" 
  84.       if playing "moonmus.wav" == TRUE 
  85.        stop element "moonmus.wav"
  86.       if playing "alarm.wav" == TRUE
  87.        stop element "alarm.wav"
  88.       display element "problem.wav"
  89.       play_problem = 1
  90.    if flame == 1
  91.     thrust = thrust * 1.014
  92.     fuel = fuel - 1 
  93.     fuel_percent = fuel / 2.25
  94.     editbox "fuel" = fuel_percent
  95.    if flame == 0
  96.     if en == 1
  97.      thrust = thrust / 1.014
  98.    if flame == 1
  99.     if yaw == 0
  100.      left = left*1.01
  101.      right = right/1.01
  102.      gg = 1
  103.     if yaw == 2
  104.      left = left/1.01
  105.      right = right*1.01
  106.      gg = 2
  107.    if left < 1
  108.     left = 1
  109.    if right < 1
  110.     right = 1
  111.    if gg == 1
  112.     go_ = (left-right)* -1       
  113.    if gg == 2
  114.     go_ = right-left 
  115.    if abs go_ <= 0.3
  116.     go_ = 0
  117.    xx = xx + go_
  118.    if xx > 603
  119.     xx = 1
  120.    if xx < 1 
  121.     xx = 603
  122.    if gravity + yyy < yy 
  123.     en = 1
  124.    if gravity + yyy > yy 
  125.     if en == 1
  126.      thrust = 1
  127.      gravity = 2
  128.      en = 0 
  129.      yyy = yy - 2
  130.    yy =  gravity + yyy 
  131.    if fps_switch == 0
  132.     yyyy = yy
  133.     fps_switch = 1
  134.    if TIMER-fps_time > 10 
  135.     fps_time = TIMER
  136.     fps_ = floor((yy - yyyy)*10)
  137.     fps_ = fps_ + gravity - floor gravity
  138.     editbox "fps"= fps_
  139.     fps_switch = 0 
  140.    if yy < 36
  141.     call reset_sprites
  142.     update sprites
  143.     if playing "alarm.wav" == TRUE
  144.      stop element "alarm.wav"
  145.     if playing "thrust.wav" == TRUE
  146.      stop element "thrust.wav" 
  147.     if playing "moonmus.wav" == FALSE 
  148.      if music_ == TRUE
  149.      display element "moonmus.wav"
  150.     ships_ = ships_ + 1
  151.     display element "status"
  152.     textbox "status" = "You have left the moon!"
  153.     mouse position 320,240
  154.     mouse mode ON
  155.     return
  156.    peek message mes,a,b,c
  157.    if mes == WM_RBUTTONDOWN
  158.      mes = 0
  159.      stop sound
  160.      stat_switch = 0
  161.      if visible "status" == TRUE
  162.       textbox "status" = "PAUSED"
  163.      while mes != WM_RBUTTONDOWN
  164.       peek message mes,a,b,c
  165.       if visible "status" == FALSE
  166.        display element "status"
  167.        textbox "status" = "PAUSED" 
  168.      textbox "status" = "           "
  169.      undisplay element "status"  
  170.      flame = 0
  171.    if WM_LBUTTONDOWN == mes
  172.     if fuel > 0
  173.      flame = 1
  174.    if WM_LBUTTONUP == mes
  175.     flame = 0
  176.    if LAST_MOUSE_XPOS <= 213 
  177.     yaw = 0
  178.    if LAST_MOUSE_XPOS >= 427 
  179.     yaw = 2
  180.    if LAST_MOUSE_XPOS < 427 
  181.     if LAST_MOUSE_XPOS > 213 
  182.      yaw = 1
  183.    if LAST_MOUSE_YPOS > 400
  184.     mouse position LAST_MOUSE_XPOS,400
  185.    if yaw == 0 
  186.     if flame == 1
  187.      call reset_sprites
  188.      sprite lemlfs bitmap lemlf at xx,yy 
  189.     if flame == 0
  190.      call reset_sprites
  191.      sprite lemls bitmap leml at xx,yy 
  192.    if yaw == 1 
  193.     if flame == 1
  194.      call reset_sprites
  195.      sprite lemfs bitmap lemf at xx,yy 
  196.     if flame == 0
  197.      call reset_sprites
  198.      sprite lems bitmap lem at xx,yy 
  199.    if yaw == 2
  200.     if flame == 1
  201.      call reset_sprites
  202.      sprite lemrfs bitmap lemrf at xx-1,yy+1
  203.     if flame == 0
  204.      call reset_sprites
  205.      sprite lemrs bitmap lemr at xx,yy 
  206.    if flame == 0 
  207.     if playing "thrust.wav" == TRUE
  208.      stop element "thrust.wav" 
  209.     if playing "moonmus.wav" == FALSE 
  210.      if play_problem == 0
  211.       if music_ == TRUE
  212.        if fuel_percent >= 20
  213.         display element "moonmus.wav"
  214.    if flame == 1 
  215.     if playing "alarm.wav" == TRUE
  216.      stop element "alarm.wav"
  217.     if playing "thrust.wav" == FALSE
  218.      display element "thrust.wav" 
  219.    while update_sprite_time > TIMER-3
  220.    update sprites
  221.    if yaw == 1
  222.     call landing_test
  223.     if landing == TRUE
  224.      if ships_ == 0
  225.       call high_score
  226.       if visible "status" == FALSE
  227.        display element "status"
  228.       textbox "status" = "GAME OVER"
  229.      mouse position 320,240
  230.      mouse mode ON
  231.      return
  232.    call crash_test
  233.    if crash == TRUE
  234.     if ships_ == 0
  235.      if score_ <= high.score
  236.       if music_ == TRUE
  237.        display element "moonmus.wav"
  238.      call high_score
  239.      if visible "status" == FALSE
  240.       display element "status"
  241.      textbox "status" = "GAME OVER"
  242.     if ships_ > 0
  243.      if music_ == TRUE
  244.       display element "moonmus.wav" 
  245.     mouse position 320,240
  246.     mouse mode ON
  247.     return
  248. //----------------------------------
  249.  preload_:
  250.   if file_exist "hiscore.dat" == TRUE
  251.    load "hiscore.dat" structure high
  252.   if file_exist "hiscore.dat" == FALSE
  253.    high = new structure
  254.    high.score = 0
  255.    save "hiscore.dat" object high
  256.   highscore_ = high.score
  257.   music_ = TRUE
  258.   load "moonscap.gif" bitmap moon
  259.   load "lem.gif" bitmap lem
  260.   remap bitmap lem
  261.   load "lemf.gif" bitmap lemf
  262.   remap bitmap lemf
  263.   load "leml.gif" bitmap leml
  264.   remap bitmap leml
  265.   load "lemlf.gif" bitmap lemlf
  266.   remap bitmap lemlf
  267.   load "lemr.gif" bitmap lemr
  268.   remap bitmap lemr
  269.   load "lemrf.gif" bitmap lemrf
  270.   remap bitmap lemrf
  271.   load "lemflag.gif" bitmap flag
  272.   remap bitmap flag
  273.   load "exp1.gif" bitmap exp1
  274.   remap bitmap exp1
  275.   load "exp2.gif" bitmap exp2
  276.   remap bitmap exp2
  277.   load "exp3.gif" bitmap exp3
  278.   remap bitmap exp3
  279.   load "exp4.gif" bitmap exp4
  280.   remap bitmap exp4
  281.   load "exp5.gif" bitmap exp5
  282.   remap bitmap exp5
  283.   load "exp6.gif" bitmap exp6
  284.   remap bitmap exp6
  285.   load "exp7.gif" bitmap exp7
  286.   remap bitmap exp7
  287.   load "exp8.gif" bitmap exp8
  288.   remap bitmap exp8
  289.   load "exp9.gif" bitmap exp9
  290.   remap bitmap exp9
  291.  //-----------------------------------
  292.   //if SOUND_DEVICE == TRUE
  293.    load "explode.wav" sound exp_sound
  294.    load "weredead.wav" sound were_dead
  295.    load "thatis.wav" sound thatis
  296.    load "neil.wav" sound neil
  297.    load "flag.wav" sound drums
  298.    load "fanfare.wav" sound fanfare
  299.    load "photon.wav" sound photon
  300.    load "cool.wav" sound cool
  301.  //----------------------------------- 
  302.   lems = new sprite
  303.   lemfs = new sprite
  304.   lemls = new sprite
  305.   lemlfs = new sprite
  306.   lemrs = new sprite
  307.   lemrfs = new sprite
  308.   exp1s = new sprite
  309.   exp2s = new sprite
  310.   exp3s = new sprite
  311.   exp4s = new sprite
  312.   exp5s = new sprite
  313.   exp6s = new sprite
  314.   exp7s = new sprite
  315.   exp8s = new sprite
  316.   exp9s = new sprite
  317.   return
  318.  //-----------------------------------
  319.  explode:
  320.  if visible "status" == TRUE
  321.    textbox "status" = "             "
  322.    undisplay element "status"
  323.  if yaw == 0
  324.    call reset_sprites
  325.    sprite lemls bitmap leml at xx,yy
  326.  if yaw == 1
  327.    call reset_sprites
  328.    sprite lems bitmap lem at xx,yy
  329.  if yaw == 2
  330.    call reset_sprites
  331.    sprite lemrs bitmap lemr at xx,yy
  332.  update sprites
  333.  play sound were_dead
  334.  wait sound
  335.  sprite exp1s bitmap exp1 at xx-17,yy-11 
  336.  update sprites
  337.  play sound exp_sound
  338.  sprite exp1s bitmap exp1 at xx+640,yy
  339.  sprite exp2s bitmap exp2 at xx-30,yy-20
  340.  delay 12
  341.  update sprites
  342.  sprite exp2s bitmap exp2 at xx+640,yy
  343.  sprite exp1s bitmap exp1 at xx-17,yy-11
  344.  delay 12
  345.  update sprites
  346.  sprite exp1s bitmap exp1 at xx+640,yy
  347.  sprite exp3s bitmap exp3 at xx-12,yy-9
  348.  delay 24
  349.  update sprites
  350.  sprite exp3s bitmap exp3 at xx+640,yy
  351.  sprite exp4s bitmap exp4 at xx-12,yy-9
  352.  delay 24
  353.  update sprites
  354.  sprite exp4s bitmap exp4 at xx+640,yy
  355.  sprite exp5s bitmap exp5 at xx-12,yy-9
  356.  delay 26
  357.  update sprites
  358.  sprite exp5s bitmap exp5 at xx+640,yy
  359.  sprite exp6s bitmap exp6 at xx-12,yy-9
  360.  delay 26
  361.  update sprites
  362.  sprite exp6s bitmap exp6 at xx+640,yy
  363.  sprite exp7s bitmap exp7 at xx-12,yy-9
  364.  delay 26
  365.  update sprites
  366.  sprite exp7s bitmap exp7 at xx+640,yy
  367.  sprite exp8s bitmap exp8 at xx-12,yy-9
  368.  delay 26
  369.  update sprites
  370.  sprite exp8s bitmap exp8 at xx+640,yy
  371.  sprite exp9s bitmap exp9 at xx-12,yy-9
  372.  delay 26
  373.  update sprites
  374.  call reset_sprites
  375.  update sprites
  376.  sprite exp9s bitmap exp9 at xx+640,yy
  377.  delay 26
  378.  update sprites
  379.  wait sound 
  380.  crash = TRUE
  381.  return
  382. //-----------------------------------
  383.  reset_sprites:
  384.   sprite lemlfs bitmap lemlf at 640,yy 
  385.   sprite lemfs bitmap lemf at 640,yy 
  386.   sprite lemrfs bitmap lemrf at 640,yy 
  387.   sprite lemls bitmap leml at 640,yy 
  388.   sprite lems bitmap lem at 640,yy 
  389.   sprite lemrs bitmap lemr at 640,yy 
  390.   return 
  391. //------------------------------------
  392.  landing_test:
  393.   pr = moon[xx+4][yy+27][0]
  394.   pg = moon[xx+4][yy+27][1]
  395.   pb = moon[xx+4][yy+27][2]
  396.   pr1 = moon[xx+34][yy+27][0]
  397.   pg1 = moon[xx+34][yy+27][1]
  398.   pb1 = moon[xx+34][yy+27][2]
  399.   if pr == 0
  400.    if pg == 248
  401.     if pb == 0
  402.      if pr1 == 0
  403.       if pg1 == 248
  404.        if pb1 == 0
  405.         if fps_ <= 1.5
  406.          landing_site = 1
  407.          site1 = TRUE
  408.          call landing_
  409.          return
  410.   if pr == 248
  411.    if pg == 0
  412.     if pb == 0
  413.      if pr1 == 248
  414.       if pg1 == 0
  415.        if pb1 == 0
  416.         if fps_ <= 1.5
  417.          landing_site = 2
  418.          site2 = TRUE
  419.          call landing_
  420.          return     
  421.   if pr == 248
  422.    if pg == 248
  423.     if pb == 0
  424.      if pr1 == 248
  425.       if pg1 == 248
  426.        if pb1 == 0
  427.         if fps_ <= 1.5
  428.          landing_site = 3
  429.          site3 = TRUE
  430.          call landing_
  431.          return 
  432.   if pr == 0
  433.    if pg == 0
  434.     if pb == 248
  435.      if pr1 == 0
  436.       if pg1 == 0
  437.        if pb1 == 248
  438.         if fps_ <= 1.5
  439.          landing_site = 4
  440.          site4 = TRUE
  441.          call landing_
  442.          return 
  443.   if pr == 0
  444.    if pg == 248
  445.     if pb == 248
  446.      if pr1 == 0
  447.       if pg1 == 248
  448.        if pb1 == 248
  449.         if fps_ <= 1.5
  450.          landing_site = 5
  451.          site5 = TRUE
  452.          call landing_
  453.          return                        
  454.   return  
  455. //------------------------------------
  456.  landing_:
  457.   if visible "status" == TRUE
  458.    textbox "status" = "             "
  459.    undisplay element "status"
  460.   if fps_ < 0
  461.    fps_ = 0
  462.    editbox "fps"= fps_
  463.   call reset_sprites
  464.   sprite lems bitmap lem at xx,yy
  465.   update sprites
  466.   stop sound
  467.   delay_sound = TIMER
  468.    while delay_sound > TIMER-100
  469.   play sound neil
  470.   wait sound
  471.   delay_sound = TIMER
  472.    while delay_sound > TIMER-50
  473.   play sound thatis
  474.   wait sound
  475.   call reset_sprites
  476.   update sprites
  477.   display bitmap flag at xx,yy-24 mode DISPLAY_DIRECT
  478.   play sound drums
  479.   wait sound
  480.   landing = TRUE
  481.   call compute_score
  482.   return  
  483. //------------------------------------
  484.  crash_test:
  485.   if yaw == 0
  486.    pr1 = moon[xx+7][yy+10][0]
  487.    pr2 = moon[xx+14][yy+33][0]
  488.    pr3 = moon[xx+36][yy+15][0]
  489.    if pr1 > 0
  490.     if pr1 < 248
  491.      crash_ = TRUE
  492.      call explode
  493.      return
  494.    if pr2 > 0
  495.     if pr2 < 248
  496.      crash_ = TRUE
  497.      call explode
  498.      return      
  499.    if pr3 > 0
  500.     if pr3 < 248
  501.      crash_ = TRUE
  502.      call explode
  503.      return      
  504.   if yaw == 1
  505.    pr1 = moon[xx+4][yy+27][0]
  506.    pr2 = moon[xx+34][yy+27][0]
  507.    if pr1 > 0
  508.     if pr1 < 248
  509.      crash_ = TRUE
  510.      call explode
  511.      return
  512.    if pr2 > 0
  513.     if pr2 < 248
  514.      crash_ = TRUE
  515.      call explode
  516.      return      
  517.   if yaw == 2
  518.    pr1 = moon[xx+2][yy+12][0]
  519.    pr2 = moon[xx+31][yy+9][0]
  520.    pr3 = moon[xx+21][yy+34][0]
  521.    if pr1 > 0
  522.     if pr1 < 248
  523.      crash_ = TRUE
  524.      call explode
  525.      return
  526.    if pr2 > 0
  527.     if pr2 < 248
  528.      crash_ = TRUE
  529.      call explode
  530.      return      
  531.    if pr3 > 0
  532.     if pr3 < 248
  533.      crash_ = TRUE
  534.      call explode
  535.      return         
  536.   pr = moon[xx+19][yy+50][0]
  537.   pg = moon[xx+19][yy+50][1]
  538.   pb = moon[xx+19][yy+50][2]
  539.   if site1 == TRUE
  540.    if pr == 0
  541.     if pg == 248
  542.      if pb == 0
  543.       crash_ = TRUE
  544.       call explode
  545.       return
  546.   if site2 == TRUE
  547.    if pr == 248
  548.     if pg == 0
  549.      if pb == 0
  550.       crash_ = TRUE
  551.       call explode
  552.       return
  553.   if site3 == TRUE
  554.    if pr == 248
  555.     if pg == 248
  556.      if pb == 0
  557.       crash_ = TRUE
  558.       call explode
  559.       return
  560.   if site4 == TRUE
  561.    if pr == 0
  562.     if pg == 0
  563.      if pb == 248
  564.       crash_ = TRUE
  565.       call explode
  566.       return
  567.   if site5 == TRUE
  568.    if pr == 0
  569.     if pg == 248
  570.      if pb == 248
  571.       crash_ = TRUE
  572.       call explode
  573.       return
  574.   return
  575. //------------------------------------
  576.  new_game:
  577.   ships_ = 6
  578.   score_ = 0
  579.   site1 = FALSE
  580.   site2 = FALSE
  581.   site3 = FALSE
  582.   site4 = FALSE
  583.   site5 = FALSE
  584.   return
  585. //------------------------------------
  586.  compute_score:
  587.   if fuel_percent >= 20
  588.    fuel_bonus = 7.5 * fuel_percent  
  589.    fuel_bonus = floor fuel_bonus
  590.   contact_ = 1000 - fps_ * 500
  591.   if contact_ == 1000
  592.    if visible "status" == FALSE
  593.         display element "status"
  594.         textbox "status" = "A PERFECT LANDING!"
  595.         play sound fanfare
  596.         wait sound
  597.   contact_ = floor contact_
  598.   last_score = score_
  599.   score_ = score_ + (fuel_bonus + contact_) * landing_site
  600.   score_ = floor score_
  601.   total_score = (fuel_bonus + contact_) * landing_site
  602.   display element "scoreback"
  603.   display element "scorebox"
  604.   display element "rating"
  605.   if contact_ < 600
  606.    textbox "rating" = "*"
  607.   if contact_ >= 600
  608.    if contact_ < 700
  609.     textbox "rating" = "**"
  610.   if contact_ >= 700
  611.    if contact_ < 800
  612.     textbox "rating" = "***"
  613.   if contact_ >= 800
  614.    if contact_ < 900
  615.     textbox "rating" = "****"
  616.   if contact_ >= 900
  617.    textbox "rating" = "*****" 
  618.   display element "landing"
  619.   textbox "landing" = contact_
  620.   display element "fuelbonus"
  621.   textbox "fuelbonus" = fuel_bonus
  622.   display element "subtotal"
  623.   textbox "subtotal" = fuel_bonus + contact_
  624.   display element "landingsite"
  625.   if landing_site == 1
  626.    textbox "landingsite" = "X1"
  627.   if landing_site == 2
  628.    textbox "landingsite" = "X2"
  629.   if landing_site == 3
  630.    textbox "landingsite" = "X3" 
  631.   if landing_site == 4
  632.    textbox "landingsite" = "X4"
  633.   if landing_site == 5
  634.    textbox "landingsite" = "X5"  
  635.   display element "totalscore"
  636.   textbox "totalscore" = total_score
  637.   score_delay = TIMER
  638.    while score_delay > TIMER - 100
  639.   while last_score < score_
  640.    if playing "click.wav" == FALSE 
  641.     display element "click.wav"
  642.    last_score = last_score + 3
  643.    editbox "score" = last_score
  644.   last_score = score_
  645.   editbox "score" = score_
  646.   if playing "click.wav" == TRUE
  647.    stop element "click.wav"
  648.   if site1 == TRUE
  649.    if site2 == TRUE
  650.     if site3 == TRUE
  651.      if site4 == TRUE
  652.       if site5 == TRUE
  653.        if ships_ == 1
  654.         ships_ = 0 
  655.         score_delay = TIMER
  656.          while score_delay > TIMER - 100
  657.         if visible "status" == FALSE
  658.          display element "status"
  659.         textbox "status" = "EXTRA BONUS 1000 POINTS!"
  660.         play sound fanfare
  661.         wait sound
  662.         score_delay = TIMER
  663.          while score_delay > TIMER - 100
  664.         score_ = score_ + 1000
  665.         while last_score < score_
  666.          if playing "click.wav" == FALSE 
  667.           display element "click.wav"
  668.          last_score = last_score + 3
  669.          editbox "score" = last_score
  670.         editbox "score" = score_
  671.         if playing "click.wav" == TRUE
  672.          stop element "click.wav" 
  673.   return
  674. //-----------------------------------
  675.  high_score:
  676.   if score_ > high.score
  677.    high.score = score_
  678.    save "hiscore.dat" object high 
  679.    if visible "status" == FALSE
  680.     display element "status"
  681.    textbox "status" = "NEW HIGH SCORE!"
  682.    play sound fanfare
  683.    wait sound
  684.    delay_ = TIMER
  685.     while delay_ > TIMER - 100
  686.    display element "whiteout"
  687.    play sound photon
  688.    undisplay element "whiteout"
  689.    textbox "highscore" = score_
  690.    wait sound
  691.    play sound cool
  692.    wait sound
  693.   return 
  694. //------------------------------------
  695.  reset_highscore:
  696.   textbox "highscore" = "0"
  697.   return
  698. //------------------------------------
  699.  display_high_score:
  700.   if visible "highscore" == FALSE
  701.    display element "highscore"
  702.   textbox "highscore" = highscore_
  703. //------------------------------------
  704.  quit_:
  705.   display element "shot.wav"
  706.   wait sound
  707.   free all
  708.   exit
  709.  
  710.